home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / CLisp-Beta4-hi.lha / exit-loop.cl < prev    next >
Text File  |  1992-11-08  |  101b  |  5 lines
  1. /* Makes CLISP jump out of infinite loop */
  2. address CLISP1
  3.  
  4. '(throw ''system::debug ''system::quit)'
  5.